UC知道[asp]如何读取新闻内容中的N张图片地址?
来源：百度知道 编辑：UC知道 时间：2024/05/24 07:52:55
从新闻数据库中内容字段读取,其中可能有N张图片,如何把其中的图片一一列出?请提供代码参考,通过即送分.
例内容为:
lkasjfoi3joijasf<img src="1.jpg" border="0">2huhr298hiwshfaisf<img src="2.jpg" alt="asdfasf" border="0">asdfasdfsafasdfasf
需要输出为:
1.jpg
2.jpg
news表名
id 新闻ID
content 新闻内容(HTML代码,含有图片等信息)
谁能给完整的ASP代码~~~.
不做搜索,只是要提取出新闻内容中含有的图片地址.
觉世好囊人:提供的代码没用.不过我根据你的代码做出来的~~~但感觉太过复杂~~~不知道还有没有好些的方案.
Loadinger :关键没那么多前提条件,谢谢您的参与~~~
例内容为:
lkasjfoi3joijasf<img src="1.jpg" border="0">2huhr298hiwshfaisf<img src="2.jpg" alt="asdfasf" border="0">asdfasdfsafasdfasf
需要输出为:
1.jpg
2.jpg
news表名
id 新闻ID
content 新闻内容(HTML代码,含有图片等信息)
谁能给完整的ASP代码~~~.
不做搜索,只是要提取出新闻内容中含有的图片地址.
觉世好囊人:提供的代码没用.不过我根据你的代码做出来的~~~但感觉太过复杂~~~不知道还有没有好些的方案.
Loadinger :关键没那么多前提条件,谢谢您的参与~~~
写出来了，够完整吧~~
<%
Dim Conn
Dim Rs,Sql
Dim ID
Dim Str
Dim regEx,Match,Matches,values
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") '数据库路径，如果不和程序同目录，要加上相对目录，如 database/data.mdb
ID=Request("id")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From [news] Where ID="&ID,Conn,1,1
If Not Rs.EOF Then
Str=Rs("content")
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(Str) '执行搜索。
For Each Match in